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J^STRACT 


Over  the  past  40  years  limited  progress  has  been  made 
to  help  practitioners  estimate  the  risk  and  the  required 
effort  necessary  to  deliver  software  solutions.  Recent 
developments  improve  this  outlook,  one  in  particular,  the 
research  of  Juan  Carlos  Nogueira.  Dr.  Nogueira  developed  a 
formal  model  for  risk  assessment  that  can  be  used  to 
estimate  a  software  project's  risk  when  examined  against  a 
desired  development  time-line. 

Dr.  Nogueira  developed  his  model  based  on  data 
collected  from  a  series  of  experiments  conducted  on  the 
ViteProject  simulation.  This  unique  approach  provides  a 
starting  point  towards  a  proven  formal  model  for  risk 
assessment . 

Another  issue  with  software  development,  especially  in 
the  Department  of  Defense  (DoD) ,  is  dealing  with  aging 
legacy  software  systems.  These  systems  perform  the 
functionality  of  their  design,  but  their  interfaces  are 
obsolete  and  changing  requirements  limit  their  functional 
usefulness . 

This  thesis  is  an  exercise  in  upgrading  a  legacy 
system  licensed  to  the  DoD,  ViteProject,  for  use  with 
ongoing  DoD  research  that  seeks  to  discern  truly 
quantifiable  criteria  that  can  be  used  to  more  accurately 
estimate  the  length  of  time  needed  to  complete  any  software 
project.  Accurately  projecting  software  development  times 
and  accurate  software  development  costs  have  eluded 
software  developers  for  decades. 
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I. 


INTRODUCTION 


A.  BACKGROUND 

New  technologies  procured  by  the  Department  of  Defense 
(DoD)  are  becoming  increasingly  dependent  upon  software  to 
operate.  New  hardware  platforms  like  the  Joint  Strike 
Fighter  and  the  planned  destroyer  (DD(X)),  provide 
undisputable  evidence  that  successful  technological 
advantages  are  dependent  upon  the  intricate  integration  of 
both  the  software  and  the  hardware.  The  process  of 
procuring  any  system  for  the  DoD  is  based  on  estimates 
provided  by  contractors  of  how  long  and  how  costly  project 
development  will  be.  Currently,  the  software  process  is 
greatly  flawed.  Time  and  cost  estimates  of  software 
projects  have  consistently  been  in  err,  leading  to  very 
costly  overruns  and  schedule  delays. 


One  of  the  greatest  challenges  facing  the  DoD  is 
verifying  time  and  cost  estimations  of  software  projects. 
Traditional  engineering  project  estimates  are  based  on 
measurable  and  tested  criteria,  subjecting  the  estimates 
submitted  by  contractors  to  fierce  scrutiny. 
Unfortunately,  software  engineering  projects  are  not 
amenable  to  quantifiable  criteria,  leaving  DoD  with  little 
grounds  to  challenge  development  estimates.  To  solve  this 
problem  researchers  are  attempting  to  discern  truly 
quantifiable  criteria  that  can  be  used  to  more  accurately 
estimate  the  length  of  time  needed  to  complete  any  software 
pro j  ect . 
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Another  major  problem  facing  the  DoD  is  legacy 
systems.  The  DoD  procures  systems  that  meet  a  need  at  a 
given  time,  and  much  time  and  resources  are  invested  into 
these  systems.  As  technology  continues  to  progress  at 
astounding  rates,  many  of  these  legacy  systems  are  either 
no  longer  supported  or  are  not  compatible  with  the  new 
technologies.  DoD  is  faced  with  the  problem  of  having  to 
spend  great  sums  of  money  to  acquire  redundant  technology 
or  to  attempt  to  upgrade  the  legacy  system. 


One  approach  researches  are  investigating  is  using 
ViteProject  to  establish  quantifiable  measures  for  software 
development.  ViteProject  is  a  software  based  modeling  and 
simulation  tool  that  integrates  organizational  and  work 
process  views  of  strategic,  time-critical  projects  to 
systematically  engineer  organizational  projects.  The 
underlying  model  of  ViteProject  was  developed  at  Stanford 
University  and  has  been  validated  for  use  to  model 
organizational  projects.  It  is  the  position  of  Dr.  Juan 
Carlos  Nogueira  that  the  core  model  of  ViteProject  can  also 
be  applied  to  software  projects.  In  his  dissertation,  A 
Formal  Model  for  Risk  Assessment  in  Software  Projects,  he 
determined  metrics  that  could  be  used  to  estimate  a 
software  design  timeline  and  adapted  these  metrics  for  use 
in  ViteProject.  The  ViteProject  software,  in  its  current 
form,  does  not  have  the  ability  to  allow  for  sensitivity 
analysis  or  for  the  collection  of  statistically  significant 
sample  sizes  of  input  scenarios. 
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B.  PURPOSE 


The  ultimate  objective  of  this  thesis  is  to  develop  a 
research  tool  capable  of  extending  the  effectiveness  and 
lifecycle  usefulness  of  legacy  software,  allow 
customization  by  analysts,  and  maintain  the  integrity  of 
the  original  functionality.  This  goal  will  be  achieved  by 
extending  the  functionality  of  ViteProject  and  adapting  it 
for  use  on  a  current  DoD  project;  validating  its  core  model 
for  use  with  software  engineering  timeline  estimation. 


The  extended  functionality  allows  the  use  of 
ViteProject  in  the  creation  of  a  statistically  significant 
number  of  simulations.  The  simulations  will  enable 
validation  of  the  ViteProject  model  for  use  in  modeling 
software  engineering  projects.  The  validated  core  model 
will  allow  for  better  software  project  time  and  cost 
estimation,  thereby  potentially  saving  DoD  millions  of 
dollars  in  cost  overrun. 

C.  SCOPE  AND  METHODOLOGY 

This  thesis  to  extend  the  functionality  of  ViteProject 
will  first  begin  with  a  review  of  the  software  engineering 
project  estimation  dissertation  and  the  necessity  for  the 
program.  Second,  follow  with  a  review  of  the  enhancement 
algorithms  and  software  extensions  intended  to  add 
additional  functionality.  Third,  continue  with  the  code 
and  documentation,  as  well  as  a  validation  of  the  extended 
program.  Finally,  this  thesis  will  end  with  conclusions 
and  recommendations  for  future  research. 
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To  achieve  this  goal  of  extended  functionality  of 
ViteProject  there  must  be  some  steps  taken  prior  to  the 
programming.  First,  one  must  gain  thorough  understanding 
of  the  operation  of  ViteProject  software  and  its  interface 
with  Visio  (see  Chapter  III)  .  Second,  one  must  gain  a 
baseline  understanding  of  software  project  parameters  to  be 
used.  Finally,  one  must  understand  the  mapping  of  the 
software  project  parameters  to  VitePro j ect-specif ic 
parameters . 


The  implementation  of  this  extension  will  provide  the 
user  an  interface  that  allows  the  manipulation  of 
ViteProject  parameters.  This  manipulation  will  automate 
pre-simulation  parameter  changes  to  the  ViteProject 
scenarios,  and  will  allow  for  automatic  or  manual 
simulations  of  ViteProject  scenarios.  Finally,  the 
extended  program  will  capture  desired  data  from  the 
simulations  and  export  the  data  to  Microsoft  Excel 
spreadsheet  software,  with  minor  formatting. 
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II.  SUPPORTING  RESEARCH 


This  chapter  briefly  discusses  the  research  initiative 
that  will  directly  benefit  from  the  application  of  this 
thesis.  An  introduction  to  the  research  initiative  is 
provided,  followed  by  a  discussion  that  details  a  simple 
validation  of  the  thesis  results. 


Dr.  Nogueira  identifies  automatically  collectable 
measures  in  the  software  process  that  serve  as  project  risk 
indicators.  The  results  of  Dr.  Nogueira' s  research 
initiative  suggest  that  to  assess  software  development 
risk,  one  must  first  determine  the  duration  of  a  software 
project  and  consequently  the  required  development  effort 
(Nogueira,  2000)  .  When  these  early  measures  are  identified 
and  properly  correlated  to  project  risk,  a  software  project 
manager  can  more  adequately  assess  software  development 
cost.  More  accurate  projections  of  the  duration  and  cost 
of  a  software  project  in  the  requirements  phase  can  save 
vast  amounts  of  money  and  time,  specifically  in  larger 
software  projects. 


In  his  dissertation.  Dr.  Nogueira  surmised  that  the 
ViteProject  Model  could  be  used  to  accurately  model  a 
software  engineering  process.  He  implemented  this  modeling 
and  simulation  tool  in  a  limited  number  of  cases.  The 
results,  although  not  statistically  significant, 
illustrated  that  a  correlation  could  exist  between  the 
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ViteProject  simulations  and  his  mathematical  estimates  of 
software  project  duration. 


The  architecture  of  the  proprietary  ViteProject 
software  imposes  many  limitations  that  must  be  mitigated 
prior  to  use  outside  of  its  original  domain.  Although  the 
internal  model  is  well  suited  and  validated  for  business 
analysis,  it  is  our  belief  that  it  can  be  extended  to  the 
software  domain.  However,  the  current  working  environment 
severely  limits  easy  adaptation  to  the  software  domain. 
More  on  ViteProject  limitations  can  be  found  in  Chapter 
III . 


To  enable  ViteProject  2.0  to  conduct  sensitivity 
analysis  and  multiple  discrete  simulations  of  a  scenario, 
this  research  will  extend  the  proprietary  system.  The 
software  extension  is  accomplished  by  encapsulating  the 
desired  functionality  of  ViteProject,  Visio  and  Microsoft 
Excel  using  Microsoft  Visual  Basic. 


To  adapt  ViteProject  for  use  in  his  research.  Dr 
Nogueira  first  had  to  adapt  his  respective  model  parameters 
into  VitePro j ect-specif ic  parameters.  The  parameters  Dr. 
Nogueira  selected  for  measurement  were  Requirements 
Volatility,  Efficiency  and  Complexity.  The  significance  of 
each  parameter  within  the  software  timeline  estimate  is  not 
relevant  for  this  thesis.  More  information  on  these 
parameters  and  their  role  in  the  software  timeline  estimate 
can  be  found  in  (Nogueira,  2000) . 
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Figure  2.1  Mapping  of  Parameters  to  ViteProject 

Figure  2.1  is  extracted  from  Dr.  Nogueira' s 
dissertation  (Nogueira,  2000).  It  demonstrates  the  mapping 
between  user-defined  parameters  and  VitePro j ect-specif ic 
parameters.  It  was  incumbent  upon  this  research  to  make  Dr. 
Nogueira' s  model  parameters  into  objects  themselves,  such 
that  changes  to  the  model  parameters  were  echoed  into  the 
respective  VitePro j ect-specif ic  parameters. 


In  extending  ViteProject,  one  has  to  ensure  that  the 
integrity  of  the  internal  Virtual  Design  Team  (VDT_2)  model 
is  maintained.  In  his  dissertation.  Dr.  Nogueira  presented 
a  table  of  simulation  results  that  provide  a  logical 
validation  baseline  for  this  thesis.  However,  in  this 
thesis,  raw  data  simulations  from  the  original  ViteProject 
program  were  used  to  ensure  that  the  extension  did  not 
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output  of 


produce  any 
VitePro j  ect . 


deviation  from  the 
See  Chapter  IV,  Section 


expected 

C. 
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III.  CODING  METHODOLOGY 


A.  THE  MODEL 

ViteProject  is  a  commercial  modeling  and  simulation 
tool  based  on  the  Virtual  Design  Tool  (VDT)  .  The  VDT  was 
based  on  contingency  theory  directed  by  Dr.  Raymond  Levitt 
at  Stanford  (Jin,  1996)  .  The  underlying  model  of 

ViteProject,  which  was  based  on  VDT-2,  has  been  validated 
on  three  levels  at  the  Center  for  Integrated  Facility 

Engineering  at  Stanford  University  (CIFE) : 

micro-level  analysis,  using  toy  problems 

meso-level  analysis,  using  toy  problems  and 
experiments 

macro-level  analysis,  by  testing  for  authenticity, 

reproducibility,  generalizability,  and  prospective. 

A  full  accounting  of  ViteProject  validation  strategy 
can  be  found  in  the  dissertation  of  (Nogueira,  2000)  and 

(Thomsen  et  al . ,  1999). 

B.  VITEPROJECT 

1.  ViteProject  2.0 

As  previously  mentioned  ViteProject  is  the  commercial 
software  of  the  VDT-2  framework.  Dr.  Nogueira  used  the 
ViteProject  2.0  in  an  attempt  to  apply  CPM/Pert  modeling 
techniques  to  software  engineering  vis-a-vis  ViteProject 
2.0.  Dr.  Nogueira  parameterized  ViteProject  to  adequately 
simulate  sixteen  different  software  project  developments 
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(Nogueira,  2000).  His  research  implemented  30  simulations 
for  each  scenario  development. 


ViteProject  has  several  limitations  that  must  be 
addressed  in  order  to  maximize  its  potential.  First, 
ViteProject  limits  a  maximum  of  100  simulated  runs  for  a 
given  scenario.  Second,  the  resulting  data  is  presented 
in  summary  format.  The  summary  format  provides  very 
limited  ability  to  conduct  histograms  or  a  sensitivity 
analysis.  When  validating  the  VDT-2  model  for  software 
projects,  a  larger  sample  size  must  be  simulated  throughout 
a  larger  range  of  software  project  scenarios. 


To  change  software  project  scenarios,  users  must  make 
changes  to  each  individual  activity  or  actors  in  a  given 
scenario  before  a  new  scenario  can  be  simulated.  This 
process,  even  for  the  smallest  organizational  structures, 
becomes  time  consuming  an  inconvenient. 


In  a  communication  with  Vite  Incorporated,  technicians 
informed  me  that  Vite  no  longer  supports  ViteProject  2.0. 
The  new  product  supported  by  Vite  is  SimVision  3.0. 
Although  the  analytical  engine  within  ViteProject  is  the 
same  as  SimVision,  SimVision  provides  a  much  needed  user 
interface  enhancement.  However,  for  our  research,  the 
decomposed  architecture  of  the  original  ViteProject  2.0 
provides  the  most  logical  choice  for  any  enhancements. 
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2. 


SIMVISION  3.0 


SimVision  3.0,  while  providing  a  much  improved  user 
interface  and  the  ability  to  increase  simulation 
executions,  still  does  not  allow  for  histogram  development 
and  sensitivity  analysis.  Although  SimVision  3.0  is  the 
latest  product  of  Vite  and  is  also  based  on  the  VDT-2 
research,  its  lack  of  a  Windows  Application  Programming 
Interface  (API)  interface  and  a  programming  language 
interface  make  it  unusable  for  the  purposes  of  this 
research,  and  will  not  be  discussed. 

C.  VISIO  5.0 

ViteProject  modeling  and  simulation  software  requires 
a  graphical  input  of  the  organization's  structure.  Visio 
provides  the  graphics  tool  for  ViteProject  2.0.  Visio 
opens  all  ViteProject  documents  via  the  ViteProject 
stencil,  which  is  akin  to  a  template  in  Microsoft  Word. 
The  initial  organizational  structure  for  a  given  scenario, 
as  well  as  all  changes  to  a  scenario  or  an  organization's 
parameters  occur  within  Visio. 

Scenario  simulations  can  be  run  from  Visio,  via  a 
ViteProject  add-in,  or  from  ViteProject  itself.  If  the 
scenario  is  executed  from  Visio,  all  data  in  the  scenario 
drawing  is  first  written  to  the  ViteProject  database  file 
prior  to  the  simulation  run.  If  the  simulation  is  run  from 
Vite,  the  simulation  relies  solely  on  the  data  currently 
saved  in  the  ViteProject  database  file. 
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Data  is  only  saved  to  the  database  file  from  Visio 
during  the  course  of  a  simulation.  Therefore,  as  was 
discovered  during  this  research,  changes  made  in  Visio  are 
ignored  until  the  simulation  is  executed  at  least  once  from 
Visio  after  any  changes.  If  changes  to  organization 
parameters  are  made  directly  to  the  database,  the  changes 
will  be  reflected  in  the  ViteProject  scenario  simulation, 
but  will  not  be  realized  in  Visio.  Therefore  changes  made 
directly  to  the  database  will  be  overwritten  if  the 
scenario  is  run  from  Visio  after  the  changes. 

D.  VISUAL  BASIC  6.0 

Neither  ViteProject  nor  the  follow-on,  SimVision  allow 
the  user  to  run  a  simulation  for  a  large  number  of  trial 
runs  and  capture  the  data  for  each  discrete  run.  Neither 
allow  for  parameter  updates  for  multiple  objects 
simultaneously.  Furthermore,  they  do  not  allow  the  user  to 
export  data  to  a  spreadsheet  for  more  detailed  analysis. 
However,  only  ViteProject  allows  for  a  programming  language 
interface . 

Although  neither  have  a  Windows  API,  ViteProject, 
because  of  its  dependence  upon  Visio,  can  be  manipulated  in 
a  limited  way  with  Visual  Basic.  In  ViteProject, 
organizational  structure,  updates  to  the  organization  and 
the  scenario,  and  saving  to  the  database  are  all  done 
through  Visio.  ViteProject  itself  only  accesses  the  data 
from  the  database  and  runs  it  through  the  simulator  engine 
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to  produce  results.  The  results  in  turn  are  written  to  the 
database . 


The  dependence  on  Microsoft  Visio  allowed  me  to  write 
a  program  in  Visual  Basic  that  utilizes  the  structure 
provided  by  Visio  and  the  simulator  engine  of  ViteProject 
to  execute  multiple  scenarios.  The  use  of  Visual  Basic 
also  facilitates  the  export  of  all  data  to  Microsoft  Excel 
for  analysis.  Visual  Basic,  while  not  the  most  robust 
language,  serves  as  the  perfect  tool  for  a  rapid  legacy 
system  upgrade. 


E .  MICROSOFT  EXCEL 


Microsoft  Excel  provides  a  robust  spreadsheet  for 
analyzing  the  output  data.  Although  other  tools  may  prove 
better  suited  for  establishing  the  type  of  curves  and 
analyses  warranted  by  the  research.  Excel  has  the  added 
advantage  of  being  widely  used.  The  wide  use  of  Excel  in 
the  area  of  data  collection  and  statistical  analysis 
ensures  that  should  there  be  other,  better-suited  analysis 
programs,  those  programs  will  most  likely  interface 
seamlessly  with  Excel. 


f 


OutputVolume(min  s) 

60  min  s  ^  HoursWkd  ^  DaysWkd 
^  hour  Day  Week  j 


l{days  /  week) 


[Eg.  3-1] 


The  output  data  from  the  simulations  is  exported  to 
Excel  with  minimum  loss.  The  areas  of  output  are  either 
cost  or  volume.  Volume  is  a  measure  of  time  in  minutes  and 
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cost  is  measured  in  dollars.  All  data  will  be  averaged  in 
the  last  filled  row  if  its  column.  The  Volume  data  will  be 
averaged  and  converted  to  days.  The  conversion  to  days 
takes  into  account  the  hours  worked  daily  and  the  number  of 
days  worked  per  week.  The  conversion  determines  the  number 
of  weeks  required  to  complete  a  task.  Eg.  3-1  is  used  to 
calculate  the  number  of  working  days  and  non-work  days. 


14 


IV.  PROGRAM  CODE  AND  DOCUMENTATION 


A.  CODE 

Visual  Basic  6.0  (VBA)  was  used  in  the  creation  of  the 
program.  The  program  consists  of  three  displays.  The 
initial  display  allows  the  user  to  open  the  Visio  file,  the 
associated  ViteProject  database  file,  and  indicate  the 
storage  location  for  the  Excel  file.  The  second  display  is 
the  main  program  graphical  user  interface  (GUI)  .  The  GUI 
allows  the  user  to  indicate  the  number  of  simulation  trials, 
adjust  the  software  project  simulation  parameters,  and 
choose  amongst  possible  output  data  to  export  to  Excel.  The 
third  display  is  purely  informational  in  that  it  illustrates 
the  mapping  from  the  software  engineering  parameters  into 
the  ViteProject  parameters,  and  is  called  through  hyperlinks 
in  the  main  GUI . 


The  integrated  development  environment  (IDE)  of  VBA,  by 
virtue  of  its  drag  and  drop  nature  for  graphics  and  GUI, 
supplies  some  code  as  a  precursor  to  the  code  entered  by  the 
programmer.  This  precursor  code  is  not  directly  programmed, 
and  therefore  shall  not  be  included  in  this  chapter. 
Appendix  A  contains  the  code  in  its  entirety. 

1 .  Initial  Display 

Public  dbsMyDB  As  DAO. Database 

Dim  szDbLocation  As  String 

Dim  szDir  As  String 

Dim  VisioApp  As  Visio .Application 

Private  Declare  Function  CloseWindow  Lib  "user32"  (ByVal  hwnd  As  Long) 

As  Long 

'  Load  the  form  with  the  initial  instructions 
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Private  Sub  Form  Load() 


szCaption$ 

vbCrLf 

szCaption 
that  " 

szCaption 
structure."  _ 

szCaption 
Database  " 

szCaption 
szCaption 
&  vbCrLf 

szCaption 

szCaption 

szCaption 

szCaption 


=  "To  begin  the  program  some  tasks  must  be  completed:"  & 


&  vbCrLf 
=  szCaption  & 

=  szCaption  & 

&  vbCrLf 
=  szCaption  & 


"(1)  Input  the  location  of  the  Visio  file 
"will  be  used  for  the  organizations 

"(2)  Indicate  the  location  of  the  Vite 


=  szCaption  &  "to  be  used  for  the  simulation."  &  vbCrLf 
=  szCaption  &  " (3)  Select  directory  to  save  output  files" 


=  szCaption 
=  szCaption 
=  szCaption 
=  szCaption 


&  vbCrLf 

&  "Depressing  Cancel  during  this  portion, 
&  "or  inputting  invalid"  &  vbCrLf 
&  "data  will  cause  the  program  to  exit." 


n 


Iblintro . Caption  =  szCaption 


Form2. Height  =  4530 
End  Sub 


'  Cancel  button  for  first  frame.  If  selected,  quit  the  program 

Private  Sub  cmdCancell  Click () 

End 
End  Sub 


'  Cancel  button  for  second  frame.  If  selected,  end  the  visio 
'  application  then  quit  the  program 

Private  Sub  cmdCancel2  Click () 

VisioApp . Quit 
End 
End  Sub 

'  Cancel  button  for  third  frame.  If  selected,  end  the  visio 
'  application  then  quit  the  program 

Private  Sub  cmdCancel3  Click () 

VisioApp . Quit 
End 
End  Sub 


'  Call  the  procedure  to  open  visio  and  allow  the  user 
'  to  select  a  file  to  use  with  this  program 

Private  Sub  cmdContinuel  Click () 

Set  VisioApp  =  OpenVisioDoc 
Form2. Height  =  6345 
Labell . Enabled  =  False 
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cmdContinuel . Enabled  =  False 
cmdCancell . Enabled  =  False 
Framel . Enabled  =  False 
End  Sub 

'  Call  the  procedure  to  open  the  ViteProject  database 
'  file  for  use  and  manipulation 

Private  Sub  cmdContinue2  Click () 
szDbLocation  =  setDataBase 
Form2 . Height  =  8520 
Label2 . Enabled  =  False 
cmdContinue2 . Enabled  =  False 
cmdCancel2 . Enabled  =  False 
Frame2 . Enabled  =  False 
End  Sub 

'  Select  a  directory  to  output  the  generated  Excel  files 

Private  Sub  cmdContinueS  Click () 

Dim  check  As  String 

szDir  =  Dirl.Path 
check  =  Right (szDir,  1) 

If  check  <>  "\"  Then 

szDir  =  szDir  +  "\" 

End  If 
Form2 . Hide 
Forml . Show 
End  Sub 

'  Unload  the  form 

Private  Sub  Form_Terminate ( ) 

Unload  Me 
End  Sub 

'  Method  of  the  form2  that  allows  the  database  file 
'  location  to  be  retrieved  by  another  form 

Public  Function  returnDBf ile ( )  As  String 
returnDBfile  =  szDbLocation 
End  Function 

'  Method  of  the  form2  that  allows  the  directory  to  save 
'  Excel  files  be  retrieved  by  another  form 

Public  Function  returnDirO  As  String 
returnDir  =  szDir 
End  Function 

'  Opens  the  Visio  document,  with  rudimentary  error  handling 

Public  Function  OpenVisioDoc ( )  As  Visio .Application 
Dim  errMsg  As  String 
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Dim  Vis50  As  Visio .Application 
Dim  work  As  Long 


errMsg  =  "File  Failed  to  Open."  &  vbCrLf 

errMsg  =  errMsg  &  "Please  ensure  that  the  path  and  "  &  vbCrLf 
errMsg  =  errMsg  &  "file  name  are  correct" 

Set  VisSO  =  CreateObj ect ( "visio . application" ) 

On  Error  GoTo  Handler: 

VisSO .Application . DoCmd  (visCmdFileOpen) 

Set  OpenVisioDoc  =  VisSO 

work  =  CloseWindow (VisSO .WindowHandle32) 

Exit  Function 


Handler : 

MsgBox  errMsg,  vbExclamation  +  vbOKOnly,  "File  Error" 

End 

End  Function 

'  Method  of  the  form2  that  allows  Visio  Application 
'  object  to  be  retrieved  by  another  form 

Public  Function  returnVisApp ( )  As  Visio .Application 
Set  returnVisApp  =  VisioApp 
End  Function 

'  Allows  user  to  open  the  database  and  set  the  Database  object 
'  with  rudimentary  error  handling 

Public  Function  setDataBase ( )  As  String 

errMsg  =  "DB  File  Failed  to  Open."  &  vbCrLf 

errMsg  =  errMsg  &  "You  must  specify  a  file  name  "  &  vbCrLf 

dlgOpen . ShowOpen 

szFileName$  =  dlgOpen . FileName 

On  Error  GoTo  Handler 

If  dlgOpen . FileTitle  <>  ""  Then 

Set  dbsMyDB  =  DBEngine . OpenDatabase ( szFileName,  False) 
dbsMyDB . Close 
setDataBase  =  szFileName 
Exit  Function 
End  If 

Handler : 

MsgBox  errMsg,  vbExclamation  +  vbOKOnly,  "File  Error" 

End 

End  Function 

2 .  Main  Display 

Public  dbsMyDB  As  DAO. Database 
Dim  g  szDefFileName  As  String 

Dim  szCPM$,  szDuration$,  szSimCost$,  szWorkV$,  szReV$,  szReC$ 

Dim  szCordV$,  szCordC$,  szWaitV$,  szWaitC$,  szWorkD$,  szWorkW$ 
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Dim  g  ReqLB%,  g  EffLB%,  g  CompLB%,  g  ReqUB%,  g  EffUB%,  g  CompUB% 
Dim  g  MultLB%,  intWork;V%,  intReV%,  intCordV%,  intWaitV% 

Dim  rstMyRecordSet  As  DAO . Recordset 

Dim  rstRecordSets  As  DAO . Recordsets 

Dim  Ex  As  New  Excel .Application 

Dim  Wrkbk  As  Excel . Workbook 

Dim  Vis50  As  Visio .Application 

Dim  DocsObj  As  Visio . Documents 

Dim  DocObj  As  Visio . Document 

Dim  boolAutoSim  As  Boolean 

Dim  boolExit  As  Boolean 

Dim  boolBeginEntry  As  Boolean 

Dim  szWkbkName  As  String 

Dim  wksName  As  String 

Dim  g  intColNum  As  Integer 

Dim  strArray(50)  As  String 

Dim  indexArray (50)  As  Integer 

Dim  CompMult  As  Single 

'  Automatic  Simulation  of  all  combinations  is  desired. 

'  When  clicked  certain  controls  are  no  longer  available  to  the 
'  user  and  some  others  are  permitted 

Private  Sub  AutoSim  Click () 

'  disable  the  form  combo  boxes  that  allow  for  updates 
'  to  Requirements  Volatility,  Efficiency,  and  Complexity 

boolAutoSim  =  True 
ReqCtl . Enabled  =  True 
EffCtl . Enabled  =  True 
CompCtl . Enabled  =  True 

updateDB .Visible  =  True 

updateDB . FontBold  =  False 

updateDB . Caption  =  "Enter  Lower  Bound" 

boolBeginEntry  =  True 

'  disable  the  labels  and  the  textboxes  that  allow  the  user 
'  to  pick  a  Complexity  multiple  max  and  the  steps 

IblMultMax .Visible  =  True 
IblMult .Visible  =  False 
MultCtl .Visible  =  True 
RunSimulation . Enabled  =  False 

End  Sub 

'  If  the  complexity  Control  gets  the  focus,  it  is  assumed  that  the 
'  user  will  make  a  change  to  current  value  of  the  controls.  The 
'  ability  to  run  the  simulation  will  be  disabled  until  the  pre- 
'  run  database  updates  are  complete 

Private  Sub  CompCtl_GotFocus ( ) 
updateDB .Visible  =  True 
RunSimulation . Enabled  =  False 
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End  Sub 


'  If  the  Efficiency  Control  gets  the  focus,  it  is  assumed  that  the 
'  user  will  make  a  change  to  current  value  of  the  control.  The 
'  ability  to  run  the  simulation  will  be  disabled  until  the  pre-run 
'  database  updates  are  complete 

Private  Sub  Ef fCtl_GotFocus ( ) 
updateDB .Visible  =  True 
RunSimulation . Enabled  =  False 
End  Sub 

'  Give  the  user  a  little  help  when  deciding  whether  to  enact  an 
'  automatic  simulation  or  a  manual  simulation 


Private  Sub  Helper  Click () 
Dim  szExplain  As  String 


szExplain 

szExplain 

szExplain 

szExplain 

szExplain 

szExplain 

szExplain 

szExplain 

szExplain 

szExplain 


"Select  which  mode  to  run  the  program"  &  vbCrLf 
&  vbCrLf 

szExplain  +  "AUTO  SIM  will  simulate  all  " 

&  "scenarios  between  what  is  input"  &  vbCrLf 
szExplain  +  "  for  LOWER  BOUND  and  " 

&  "UPPER  BOUND."  &  VbCrLf  &  vbCrLf  ~ 

szExplain  +  "MANUAL  SIM  will  allow  the  user  to  " 

&  "input  the  parameters  for"  &  vbCrLf 
szExplain  +  "  a  single  scenario." 

&  vbCrLf  &  vbCrLf 

szExplain  +  "After  inputting  the  necessary  data" 

&  "  press  RUN  SIMULATION."  &  vbCrLf  &  vbCrLf 
szExplain  +  "For  AUTO  SIM,  after  simulation  this" 
&  "  program  will  end"  &  vbCrLf 

szExplain  +  "and  the  generated  Excel  file  will  " 

&  "be  opened."  &  vbCrLf  &  vbCrLf 

szExplain  +  "For  MANUAL  SIM,  after  simulation  " 

&  "control  will  return"  &  vbCrLf 

szExplain  +  "once  again  to  the  main  program  for  " 
&  "further  scenarios." 


MsgBox  szExplain,  vbQuestion  +  vbOKOnly,  "Program  Help" 
End  Sub 

'  Allow  the  user  to  see  the  mapping  for  its  components  in  a 
'  hyperlink  fashion 

Private  Sub  IblComp  DblClickO 
tempi . Show 

tempi . ShowComplexity 
End  Sub 

'  Allow  the  user  to  see  the  mapping  for  its  components  in  a 
'  hyperlink  fashion 

Private  Sub  IblEff  DblClickO 
tempi . Show 

tempi . showEf f iciency 
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End  Sub 


'  Allow  the  user  to  see  the  mapping  for  its  components  in  a 
'  hyperlink  fashion 

Private  Sub  IblMult  DblClickO 
tempi . Show 
tempi . showMult 
End  Sub 

'  Allow  the  user  to  see  the  mapping  for  its  components  in  a 
'  hyperlink  fashion 

Private  Sub  IblMultMax  DblClickO 
tempi . Show 
tempi . showMult 
End  Sub 

'  Allow  the  user  to  see  the  mapping  for  its  components  in  a 
'  hyperlink  fashion 

Private  Sub  IblReqVol  DblClickO 
tempi . Show 
tempi . showReqVol 
End  Sub 

Private  Sub  MultCtl_GotFocus () 

If  Not  boolAutoSim  Then 

updateDB .Visible  =  True 
RunSimulation . Enabled  =  False 
End  If 
End  Sub 

'  Provides  for  input  of  the  high  complexity  multiple  with 
'  rudimenetary  error  protection.  Once  a  valid  number  is  input 
'  convert  the  number  to  minutes 

Private  Sub  MultCtl_LostFocus () 

Dim  work  As  Long 

If  Not  IsNumeric (MultCtl)  Then 

MsgBox  "Enter  a  number  for  work  volume",  vbExclamation 
MultCtl  =  1 
MultCtl . SetFocus 
Elself  MultCtl  <=  0  Then 

MsgBox  "Enter  a  number  greater  than  0",  vbExclamation 
MultCtl  =  1 
End  If 

End  Sub 

'  If  the  Requirements  Complexity  Control  gets  the  focus,  it  is 
'  assumed  that  the  user  will  make  a  change  to  current  value  of 
'  the  control.  The  ability  to  run  thesimulation  will  be 
'  disabled  until  the  pre  run  database  updates  are  complete 

Private  Sub  ReqCtl_GotFocus ( ) 

21 


updateDB .visible  =  True 
RunSimulation . Enabled  =  False 
End  Sub 

'  When  the  form  is  loaded  and  instance  of  Visio  will  be  created  as 
'  well  as  the  Excel  file  for  each  run  of  the  program.  When  the 
'  form  is  loaded  certain  controls  will  not  be  available  for 
'  interaction.  The  pre-run  database  will  be  set  to  values 
'  indicated  in  the  software  project  parameter  comboBoxes. 

Private  Sub  Form  Load() 

'  Variable  Declarations 

Dim  InitShpsObj  As  Visio. Shapes 
Dim  activity  As  Visio. shape 
Dim  intTick  As  Integer 
Dim  szDrive  As  String 
Dim  work  As  Long 

'  Variable  Initailization 
boolExit  =  True 

Set  VisSO  =  Form2 . returnVisApp 

g  szDefFileName  =  Form2 . returnDBf ile 

szDrive  =  Form2 . returnDir 

Set  DocsObj  =  VisSO . Documents 

Set  DocObj  =  VisSO .ActiveDocument 

Set  InitShpsObj  =  VisSO .ActivePage . Shapes 

setInitScenarioTrials 

'Output  Excel  file  name  to  the  form 

szWkbkName  =  "output"  &  &  Format (Now,  "Medium  Date")  & 

&  Hour (Now)  &  Minute (Now)  &  Second (Now)  &  ".XLS" 
Set  Wrkbk  =  Ex. Workbooks .Add 
szDrive  =  szDrive  &  szWkbkName 
Wrkbk. SaveAs  (szDrive) 
boolExit  =  False 

IblFileSaved . Caption  =  "Excel  File  Name:  "  &  szWkbkName 
szWkbkName  =  szDrive 

'  Set  up  the  Software  project  estimate  parameters  Requirements 
'  Volatility,  Efficiency,  and  Complexity. 

RatingComboBox  ReqCtl 
RatingComboBox  EffCtl 
RatingComboBox  CompCtl 

'  Set  the  inital  values  for  the  controls  in  the  pre-run 
'  database,  and  in  the  Visio  drawing  itself 

'  For  intTick  =  1  To  InitShpsObj . Count 
'  Set  activity  =  InitShpsObj . Item ( intTick) 

ReqCtl  =  ReqCtl . List (2 ) 

EffCtl  =  EffCtl. List  (2) 

CompCtl  =  CompCtl . List (2 ) 
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Next  intTick 


CompMult  =  MultCtl 
' boolAutoSim  =  True 

End  Sub 

'  When  the  form  is  ended  ensure  that  Excel  is  closed  if  desired 
'  and  that  Visio  and  its  documents  are  closed 

Private  Sub  Form  Terminate () 
closeExcel 
DocOb j . Save 
DocOb j . Close 
VisSO . Quit 
End 
End  Sub 

'  When  Clicked  will  allow  the  user  to  manually  change  parameters 
'  for  each  run 

Private  Sub  ManSim  Click () 

'  All  Control  Areas  Enabled 

ReqCtl . Enabled  =  True 
EffCtl . Enabled  =  True 
CompCtl . Enabled  =  True 
boolAutoSim  =  False 

'  Disable  the  controls  to  set  the  Max  and  the  step  levels 

IblMultMax .Visible  =  False 
IblSteps .Visible  =  False 
stepsCtl .Visible  =  False 

'  Allow  for  a  multiple  to  use  for  a  high  complexity 

IblMult .Visible  =  True 
MultCtl .Visible  =  True 
MultCtl . Enabled  =  True 

'  Set  the  text  for  the  update  database  button  for  use 

'  after  parameters  are  chosen 

updateDB . FontBold  =  True 

updateDB . Caption  =  "Update  Database" 

updateDB .Visible  =  True 

RunSimulation . Enabled  =  False 

End  Sub 

'  Command  button  to  run  the  simulation  once  the  pre-run  database 
'  is  updated  for  a  manual  simulation  or  for  all  database 
'  combinations  for  autosimulation 

Private  Sub  RunSimulation  Click () 
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First  hide  the  form  then  check  to  see  if  this  is  an  auto  or 
manual  simulation.  After  the  simulation  display  a  message 
box  indicator.  If  it  is  manual  Prevent  a  follow-on  autosim 


Forml . Hide 
If  boolAutoSim  Then 

'  If  the  autosimulate  was  selected  run  all  of  the  scenarios 
'  Then  end  the  program  and  display  the  Excel  spreadsheet 

autoSimulate 

finishMsg  "Simulation",  True 

Wrkbk . Save 

Ex. Visible  =  True 

boolExit  =  True 

Call  Form  Terminate 

Else 

'Else  Run  one  scenario  input  and  allow  for  nore  scenarios 
SimRun 

AutoSim. Enabled  =  False 
finishMsg  wksName 
End  If 
Forml . Show 

End  Sub 

'  Allow  for  all  Shapes  to  have  a  string  property  changed 

Public  Sub  IterativeChange (masterName  As  String,  visID  As  String, 
rootTable  As  String,  activity  As  String,  _ 
value  As  String,  ID  As  String) 

'  Variable  declarations 

Dim  shpsObj  As  Visio. Shapes 
Dim  szActID  As  String 
Dim  shpObj  As  Visio. shape 

'  Variable  initialization 

Set  rstMyRecordSet  =  dbsMyDB . OpenRecordset (rootTable)  'root 
Set  shpsObj  =  VisSO .ActivePage . Shapes 

'  Check  all  shape  objects  on  the  Active  Page  for  any  shape  that 
'  is  either  an  "Activity"  or  an  "Actor"  and  change  its  value  in 
'  the  pre-run  database 

For  intTick  =  1  To  shpsObj . Count 

'  Set  the  shpObj  to  the  shape  in  the  collection  of  shapes 
'  at  the  current  number. 

Set  shpObj  =  shpsObj . Item ( intTick) 
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If  that  shape  is  of  the  type  needed  to  change 


If  shpObj . Master . name  =  masterName  Then 

SetCellStr  shpOb j ,  visID,  value 
szActID  =  shpObj.Text 
rstMyRecordSet . MoveFirst 

'  Then  Search  throught  the  recordset  until  the  specific 
'  shape  is  found  and  change  its  value 

Do  While  Not  rstMyRecordSet . EOF 

If  rstMyRecordSet . Fields ( ID) . value  =  szActID  Then 
rstMyRecordSet . Edit 
rstMyRecordSet (activity)  =  value 
rstMyRecordSet . Update 
rstMyRecordSet . MoveLast 
End  If 

rstMyRecordSet . MoveNext 

Loop 
End  If 

Next  intTick 
rstMyRecordSet . Close 
End  Sub 

'Allow  for  the  Vital  Actor  properties  to  be  changed 

Public  Sub  ActorPropChange ( ) 

'  Variable  Declarations 

Dim  shpsObj  As  Visio. Shapes 
Dim  actor  As  Visio. shape 
Dim  intTick  As  Integer 

'  Variable  Initialization 

Set  shpsObj  =  VisSO .ActivePage . Shapes 

IterativeChange  "Actor",  "ViteAppExperience" ,  "ViteActors" , 
"AppExperience" ,  EffCtl,  "ID" 

IterativeChange  "Actor",  "ViteSkills" ,  "ViteActorCrafts" , 
"SkillLevel",  EffCtl,  "Actor" 


End  Sub 

'  Iterate  through  all  activities  to  change  the  Requirements 
'  Volatility  values,  which  is  comprised  of  the  Requirements 
'  Complexity  and  Uncertainty  parameters 

Private  Sub  ReqCtl  XChange  ( ) 
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Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 
IterativeChange  "Activity",  "ViteReqComplexity" , 

"ViteActivities" ,  "RequirementComplexity" , 
ReqCtl,  "ID"  ~ 

IterativeChange  "Activity",  "ViteUncertainty" , 

"ViteActivities",  "Uncertainty",  ReqCtl,  "ID" 

dbsMyDB . Close 
End  Sub 

'  Iterate  through  the  activities  and  actors  to  change  the  value  of 
'  Efficiency,  which  is  comprised  of  Team  Experience,  Application 
'  Experience,  and  Skill  Levels 

Private  Sub  EffCtl  XChange  ( ) 

'Variable  declarations  and  initializations 

sz  TeamTable$  =  "ViteTeams" 
sz  FieldExper$  =  "Experience" 
sz  VisExp$  =  "ViteTeamExperience" 

Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 

Set  rstMyRecordSet  =  dbsMyDB. OpenRecordset (sz  TeamTable) 

Set  rstRecordSets  =  dbsMyDB . Recordsets 

'Change  team  Experience 

SetCellStr  VisSO . ActivePage . PageSheet,  sz  VisExp,  EffCtl 
rstMyRecordSet . Edit 

rstMyRecordSet (sz  FieldExper)  =  EffCtl 
rstMyRecordSet . Update 
rstMyRecordSet .Close 

'Change  App  Experience  and  Skill  levels 

ActorPropChange 
dbsMyDB . Close 

End  Sub 

'  Allows  for  the  selection  of  other  output  statistics  to  Excel 

Private  Sub  Tester  Click () 

Dim  work  As  Long,  work2  As  Integer 
Dim  szMyString  As  String 
Dim  boolEnable  As  Boolean 
If  frameStats . Enabled  Then 
boolEnable  =  False 
Height  =  4630 

Else 

boolEnable  =  True 
Height  =  6900 
End  If 

frameStats . Enabled  =  boolEnable 
CkBxCPM(O) .Enabled  =  boolEnable 
CkBxDuration ( 6) . Enabled  =  boolEnable 
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'  Work  Cost 

CkBxWorkC ( 7 ). Enabled  =  boolEnable 
'  Work  Volume 

CkBxWorkV ( 1 ). Enabled  =  boolEnable 
'  Rework  Cost 

CkBxReC(8) .Enabled  =  boolEnable 
'  Rework  Volume 

CkBxReV(2) .Enabled  =  boolEnable 
'  Coordination  Volume 
CkBxCordV(3) .Enabled  =  boolEnable 
'  Coordination  Cost 
CkBxCordC ( 9 ). Enabled  =  boolEnable 
'  Wait  Volume 

CkBxWaitV ( 4 ). Enabled  =  boolEnable 
'  Wait  Cost 

CkBxWaitC ( 1 0 ). Enabled  =  boolEnable 
'  Minute  worked  in  a  week 
CkBxWeek ( 1 1 ). Enabled  =  boolEnable 
'  Minutes  worked  in  a  day 
CkBxDay(5) .Enabled  =  boolEnable 
End  Sub 

'  Iterate  through  all  activities  to  change  the  value  of  Complexity, 
'  which  is  comprised  of  Solution  Complexity 

Private  Sub  CompCtl  XChange  ( ) 

Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 
IterativeChange  "Activity",  "ViteSolComplexity" , 

"ViteActivities" ,  "SolutionComplexity" , 

CompCtl,  "ID" 

dbsMyDB . Close 
End  Sub 


'  Used  to  enter  the  database  and  extract  the  post-run  data  to 

'  export  to  Excel 

Private  Sub  extractAccess ( ) 

'Variable  initialization 

'  Table  names  and  table  headings  in  the  Vite  created  database 

sz  TableName$  =  "ViteScenarioStatistics" 
sz  Table2Name$  =  "ViteScenarios" 
sz  FieldCPM$  =  "CPMDuration" 
sz  FieldDuration$  =  "Duration" 
sz  FieldWorkCost$  =  "WorkCost" 
sz  FieldWorkV$  =  "WorkVolume" 
sz  FieldReV$  =  "ReworkVolume" 
sz  FieldReC$  =  "ReworkCost" 
sz  FieldCordV$  =  "CoordinationVolume" 
sz  FieldCordC$  =  "CoordinationCost" 
sz  FieldWaitV$  =  "WaitVolume" 
sz  FieldWaitC$  =  "WaitCost" 
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sz  FieldWork;D$  =  "WorkDay" 
sz  FieldWorkW$  =  "WorkWeek" 


Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 
Set  rstMyRecordSet  =  dbsMyDB. OpenRecordset (sz  TableName) 

Set  rstRecordSets  =  dbsMyDB . Recordsets 

'  If  the  specified  box  is  checked  the  extract  the 
'  corresponding  data  form  the  post-run  database 

If  CkBxCPM(O)  Then 

szCPM  =  rstMyRecordSet (sz  FieldCPM) 

End  If 


If  CkBxDuration ( 6 )  Then 

szDuration  =  rstMyRecordSet (sz  FieldDuration) 
End  If 

If  CkBxWorkC(7)  Then 

szSimCost  =  rstMyRecordSet (sz  FieldWorkCost) 
End  If 


If  CkBxWorkV(l)  Then 

szWorkV  =  rstMyRecordSet (sz  FieldWorkV) 
End  If 


If  CkBxReC(8)  Then 

szReC  =  rstMyRecordSet (sz  FieldReC) 
End  If 


If  CkBxReV(2)  Then 

szReV  =  rstMyRecordSet (sz  FieldReV) 
End  If 


If  CkBxCordV(3)  Then 

szCordV  =  rstMyRecordSet (sz  FieldCordV) 
End  If 


If  CkBxCordC(9)  Then 

szCordC  =  rstMyRecordSet (sz_FieldCordC) 

End  If 

If  CkBxWaitV(4)  Then 

szWaitV  =  rstMyRecordSet (sz  FieldWaitV) 

End  If 

If  CkBxWaitC (10)  Then 

szWaitC  =  rstMyRecordSet (sz  FieldWaitC) 

End  If 

rstMyRecordSet . Close 

'  Always  retrieve  the  values  for  minutes  worked  in  a  day  and 
'  in  a  week.  These  are  used  to  convert  Volumes  to  days. 
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Set  rstMyRecordSet  =  dbsMyDB.OpenRecordset (sz  Table2Name) 

Set  rstRecordSets  =  dbsMyDB . Recordsets 
szWorkW  =  rstMyRecordSet (sz  FieldWorkW) 
szWorkD  =  rstMyRecordSet (sz  FieldWorkD) 
rstMyRecordSet . Close 

dbsMyDB . Close 

End  Sub 

'  If  the  check  Box  is  checked  for  a  certain  data  output,  then  on 
'  the  first  run  the  column  names  in  Excel  will  be  set.  On 
'  subsequent  runs  the  data  is  input  into  the  columns 

Private  Sub  inputForExcel ( intindex  As  Integer) 

'Variable  declaration 

Dim  Wks  As  Excel . Worksheet 
Dim  Rng  As  Excel. Range 
Dim  intColNum  As  Integer 

'Variable  initialization 

Set  Wks  =  Wrkbk. Worksheets (wksName) 

Set  Rng  =  Wks . UsedRange . Columns 
intColNum  =  1 

If  CkBxCPM(O)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szCPM 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxDuration ( 6 )  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szDuration 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxWorkC(7)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szSimCost 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxWorkV(l)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szWorkV 
intWorkV  =  intColNum 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxReC(8)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szReC 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxReV(2)  Then 

Wks . Cells ( intindex  +  2,  IntColNum)  = 
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szReV 


intReV  =  intColNum 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxCordV ( 3 )  Then 

Wks . Cells ( intindex  +  2,  IntColNum)  =  szCordV 
intCordV  =  IntColNum 
IntColNum  =  IntColNum  +  1 
End  If 

If  CkBxCordC(9)  Then 

Wks . Cells ( intindex  +  2,  IntColNum)  =  szCordC 
IntColNum  =  IntColNum  +  1 
End  If 

If  CkBxWaitV(4)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szWaitV 
intWaitV  =  intColNum 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxWaitC (10)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szWaitC 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxWeek(ll)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szWorkW 
intColNum  =  intColNum  +  1 
End  If 

If  CkBxDay(5)  Then 

Wks . Cells ( intindex  +  2,  intColNum)  =  szWorkD 
intColNum  =  intColNum  +  1 
End  If 

'  Format  the  column  for  decimal  places  and  column  fit 

g  intColNum  =  intColNum 
Rng . NumberFormat  =  "#.00" 

Rng . AutoFit 

End  Sub 

'  Uses  the  previously  created  file  and  sets  the  initial  column  names 
'  and  creates  and  names  each  new  worksheet 

Private  Sub  useExcel (szRunName  As  String) 

'Variable  declaration  and  initialization 

Dim  Wks  As  Excel . Worksheet 
Static  intWksNum  As  Integer 

'  Sets  the  column  names.  Only  the  chosen  output  stats  will 
'  be  shown 
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szCPM  =  "CPM  Duration" 
szDuration  =  "Duration" 
szSimCost  =  "Simulation  Cost" 
szWorkV  =  "Work  Volume" 
szReV  =  "Rework  Volume" 
szReC  =  "Rework  Cost" 
szCordV  =  "Coordination  Volume" 
szCordC  =  "Coordination  Cost" 
szWaitV  =  "Wait  Volume" 
szWaitC  =  "Wait  Cost" 
szWorkD  =  "Work  Day" 
szWorkW  =  "Work  Week" 

'boolExit  =  False 
'Ex. Visible  =  False 

If  intWksNum  =  0  Then 
intWksNum  =  1 

Else 

intWksNum  =  intWksNum  +  1 
End  If 

On  Error  GoTo  ErrHandler 

Set  Wks  =  Wrkbk. Worksheets .Add 
Wks.name  =  szRunName 
inputForExcel  (-1) 

Exit  Sub 

ErrHandler : 

MsgBox  Err . Description,  vbExclamation  +  vbOKOnly,  "ERROR" 
Call  Form  Terminate 


End  Sub 

'  Used  to  change  the  high  complexity  multiple,  which  is  the  WORK 
'  value  of  the  Activities 

Public  Sub  WorkPropChange (rootTable  As  String,  activity  As  String, 

ByVal  value  As  Long) 


'  Variable  Declaration 

Dim  shpsObj  As  Visio. Shapes 
Dim  shpObj  As  Visio. shape 
Dim  szTestString  As  String 
Dim  intTick  As  Integer 
Dim  szActID  As  String 

'  Variable  initialization 

Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 
Set  rstMyRecordSet  =  dbsMyDB . OpenRecordset (rootTable) 
Set  shpsObj  =  VisSO .ActivePage . Shapes 

'  Iterate  through  all  shapes  in  the  Visio  drawing 
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For  intTick  =  1  To  shpsObj . Count 

Set  shpObj  =  shpsObj . Item ( intTick) 

If  shpObj . Master . name  =  "Activity"  Then 

SetCellInt  shpObj,  "ViteWorkVolume" ,  CLng (value) 
szActID  =  shpObj. Text 
rstMyRecordSet . MoveFirst 
Do  While  Not  rstMyRecordSet . EOF 

If  rstMyRecordSet . Fields (" ID" ). value  =  szActID  Then 
rstMyRecordSet . Edit 
rstMyRecordSet (activity)  =  value 
rstMyRecordSet . Update 
rstMyRecordSet . MoveLast 

Else 

rstMyRecordSet . MoveNext 
End  If 

Loop 
End  If 

Next  intTick 

rstMyRecordSet . Close 
dbsMyDB . Close 

End  Sub 

'  Used  to  run  the  complete  automatic  simulation  from  LLL  to  HHH 
'  with  a  complexity  multiple.  There  is  an  inner  loop  iterative 
'  run  that  is  common  to  both  cases  of  complexity,  that  is  either 
'  with  or  without  the  multiple 

Public  Sub  autoSimulate ( ) 

'  Variable  Declaration 

Dim  intUncTick  As  Integer 
Dim  work  As  Long 

For  intUncTick  =  g  CompLB  To  g  CompUB  Step  -1 

'  Outer  loop  is  the  complexity.  The  inner  loop  will  be 
'  Efficiency  and  Requirements  Volatility 

CompCtl  =  CompCtl . List ( intUncTick) 

Call  CompCtl  XChange  '  Set  the  value  of  Complexity  pre-run 
If  CompCtl  =  CompCtl . List ( 0 )  Then 

'  If  high  complexity,  step  through  multiple  from  low  to  high 
For  CompMult  =  g  MultLB  To  MultCtl  Step  stepsCtl 
work  =  Units2Mins (CompMult,  "days") 

WorkPropChange  "ViteActivities" ,  "WorkVolume" , 
work 

innerLoop 
Next  CompMult 


Else 
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'  Then  do  the  non-high-complexity  runs 
'  first  ensure  the  multiple  is  one 
work  =  Units2Mins ( 1 ,  "days") 

WorkPropChange  "ViteActivities" ,  "WorkVolume" , 
work 


innerLoop 
End  If 

Next  intUncTick 
End  Sub 

Public  Sub  innerLoop 0 

Dim  intReqTick  As  Integer,  intSolTick  As  Integer 

For  intReqTick  =  g  ReqLB  To  g  ReqUB  Step  -1 
'  Set  Requirements  Volatility  Parameter  for  the  runs 
ReqCtl  =  ReqCtl . List ( intReqTick) 

Call  ReqCtl  XChange 

For  intSolTick  =  g  EffLB  To  g  EffUB  Step  -1 
'  Set  Efficiency  Parameter  for  the  runs 
EffCtl  =  EffCtl . List ( intSolTick) 

Call  EffCtl  XChange 

'  Run  the  simulation 
SimRun 

Next  intSolTick 
Next  IntReqTick 
End  Sub 

'  Opens  then  resident  Excel  file  with  a  new  worksheet  then 
'  runs  the  simulation  for  the  number  of  times  indicated  in  the 
'  TrialsCtl.  Averages  each  active  column  of  the  spreadsheet 
'  Then  closes  the  resident  Excel  file 

Public  Sub  SimRun 0 

Dim  myVite  As  New  VitePro j ect . Pro j ect 

Dim  r  As  Long 

Dim  intTick  As  Integer 

Dim  szMyString  As  String 

wksName  =  WorksheetName 

useExcel  (wksName) 

'  For  the  number  of  trials  indicated  run  the  sim. 

'  Always  run  the  sim.  via  Vite  using  scenario  1 
szMyString  =  CellStr (VisSO . ActivePage . PageSheet,  _ 

"ViteScenName" ,  "SOOl") 

For  intTick  =  1  To  TrialsCtl 
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r  =  myVite . Simulate (g  szDefFileName,  szMyString) 
extract Access 
inputForExcel  (intTick) 

Next  intTick 
averageWks 

End  Sub 

'  Sets  the  worksheet  name  based  on  the  first  letter  of  the  text 
'  in  each  of  the  comboboxes.  Also,  for  manual  simulation,  if  this 
'  is  a  repeat  scenario  name  add  an  integer  identifier  to 
'  distinguish  the  new  worksheet  from  a  previous  run 

Public  Function  WorksheetName ( )  As  String 

'  Variable  declaration 

Dim  ReqString  As  String,  UncString  As  String 
Dim  SolString  As  String,  MultString  As  String 
Dim  element  As  Integer 
Static  intWksNum  As  Integer 

'  Variable  initialization 

szDuplicate$  =  "" 
szWksName$  =  "" 

SolString  =  Lef t$ (Ef fCtl ,  1) 

ReqString  =  Lef t$ (ReqCtl ,  1) 

UncString  =  Lef t$ (CompCtl ,  1) 

'  If  there  is  a  complexity  multiple  higher  than  one  then  put 
'  it  in  the  worksheet  name 

If  CompMult  >  I  Then 

Multstring  =  Str (CompMult) 

szWksName  =  SolString  &  ReqString  &  UncString  &  MultString 

Else 

szWksName  =  SolString  &  ReqString  &  UncString 
End  If 

'  In  manual  sim  mode  prevent  duplicate  worksheet  names  which 
'  will  crash  Excel 

If  Not  boolAutoSim  Then 

element  =  LinearSearch ( strArray ( ) ,  szWksName) 

If  element  <>  -1  Then 

indexArray ( intWksNum)  =  indexArray (element)  +  1 
szDuplicate  =  "("  &  Str ( indexArray ( intWksNum) )  &  ")" 

Else 

indexArray ( intWksNum)  =  1 
End  If 

strArray ( intWksNum)  =  szWksName 
End  If 

WorksheetName  =  szWksName  &  szDuplicate 
intWksNum  =  intWksNum  +  1 
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End  Function 


'  Function  from  Access  2000  Programming  for  Dummies 

'  This  function  is  used  to  set  the  column  letter  for  use  in  formulas 
'  created  in  Excel  format 

Public  Function  ColumnLetter (ColNumber ) 

Dim  Letterl,  Letter2 
If  ColNumber  <  27  Then 

ColumnLetter  =  Chr(64  +  ColNumber) 

Else 

Letterl  =  Chr ( Int (ColNumber  /  26)  +  64) 

Letter2  =  Chr ( (ColNumber  Mod  26)  +  64) 

ColumnLetter  =  Letterl  +  Letter! 

End  If 

End  Function 

'  Places  a  space  between  the  bulk  data  and  a  line  used  to  average 
'  the  individual  columns  that  were  selected  for  display 

Public  Sub  averageWksO 

'  Varible  declarations 

Dim  Wks  As  Excel . Worksheet 
Dim  Rng  As  Excel. Range 
Dim  intColNum  As  Integer 

'  Variable  initialization 

RowMax%  =  TrialsCtl  +  2 
intUnitRow%  =  2 
intColStart%  =  1 
szUnitLbl$  =  "(Minutes)" 
szAvgLbl$  =  "(Days)" 

Set  Wks  =  Wrkbk. Worksheets (wksName) 

Set  Rng  =  Wks . UsedRange . Columns 
Rng . NumberFormat  =  "#.00" 

'  All  columns  have  some  formatting  involved 
If  CkBxCPM(O)  Then 

Set  Rng  =  Wks . Cells ( intUnitRow,  intColStart) 

Rng. Formula  =  szUnitLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  intColStart) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  intColStart) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter (intColStart) 

&  "3:"  &  ColumnLetter (intColStart)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 
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intColStart  +  1 


intColStart  = 

End  If 

If  CkBxDuration ( 6 )  Then 

Set  Rng  =  Wks . Cells ( intUnitRow,  IntColStart) 

Rng. Formula  =  szUnitLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  IntColStart) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  IntColStart) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter (IntColStart) 

&  "3:"  &  ColumnLetter (IntColStart)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 

IntColStart  =  IntColStart  +  1 
End  If 

For  intColNum  =  IntColStart  To  g  intColNum  -  1 
Set  Rng  =  Wks . Cells (RowMax  +  2,  IntColNum) 

Rng. Formula  =  "=Average("  &  ColumnLetter ( IntColNum) 

&  "3:"  &  ColumnLetter ( IntColNum)  &  RowMax  &  ")" 
Rng . NumberFormat  =  "#.00" 

Next  IntColNum 

If  CkBxWorkV(l)  Then 

Set  Rng  =  Wks . Cells ( IntUnitRow,  intWorkV) 

Rng. Formula  =  szUnitLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  intWorkV) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  intWorkV) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter ( intWorkV) 

&  "3:"  &  ColumnLetter ( intWorkV)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 

End  If 

If  CkBxReV(2)  Then 

Set  Rng  =  Wks . Cells ( intUnitRow,  intReV) 

Rng. Formula  =  szUnitLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  intReV) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  intReV) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter ( intReV) 

&  "3:"  &  ColumnLetter ( intReV)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 

End  If 

If  CkBxCordV(3)  Then 

Set  Rng  =  Wks . Cells ( intUnitRow,  intCordV) 

Rng. Formula  =  szUnitLbl 
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Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  intCordV) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  intCordV) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter ( intCordV) 

&  "3:"  &  ColumnLetter ( intCordV)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 

End  If 

If  CkBxWaitV(4)  Then 

Set  Rng  =  Wks . Cells ( intUnitRow,  intWaitV) 

Rng. Formula  =  szUnitLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  1,  intWaitV) 

Rng. Formula  =  szAvgLbl 

Rng . HorizontalAlignment  =  xlCenterAcrossSelection 
Set  Rng  =  Wks . Cells (RowMax  +  2,  intWaitV) 

Rng. Formula  =  "= (Average ("  &  ColumnLetter ( intWaitV) 

&  "3:"  &  ColumnLetter ( intWaitV)  &  RowMax 
&  ")  *  7)/"  &  szWorkW 

Rng . NumberFormat  =  "#.00" 

End  If 
End  Sub 

'  If  there  is  a  resident  Excel  file  to  close  save  it  and  its 
'  corresponding  worksheets  then  Exit  Excel  and  indicate  that 
'  there  is  no  resident  Excel  file 

Private  Sub  closeExcelO 
If  Not  boolExit  Then 
Wrkbk . Save 
Ex . Quit 

Set  Ex  =  Nothing 
boolExit  =  True 
End  If 

End  Sub 

'  When  the  Exit  button  is  clicked  ensure  terminate  the  form 

Private  Sub  ExitCmd  Click () 

Form  Terminate 
End 
End  Sub 

'  Display  appropriate  message  for  the  end  of  the  sim  run 

Public  Sub  f inishMsg (typeRun  As  String,  Optional  ifMore  As  Boolean) 

Dim  szText  As  String 
szText  =  "DONE!"  &  vbCrLf 

szText  =  szText  &  typeRun  &  "  completed." 

If  MoreBool  Then 
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szText 


=  szText  &  "Press  OK,  the  program  will  Exit  " 

&  vbCrLf 

szText  =  szText  &  "and  the  Excel  Spreadsheet  will  Open" 
End  If 

MsgBox  szText,  vbinf ormation  +  vbOKOnly,  "Program  Status" 

End  Sub 

'  An  array  that  maintains  the  list  of  worksheets  that  have  been 
'  already  used  will  be  searched  with  this  function 

Public  Function  LinearSearch ( inArray ( )  As  String,  inKey  As  String) 
As  Integer 

Dim  Arrindex  As  Integer 

For  Arrindex  =  UBound ( inArray)  To  LBound ( inArray)  Step  -1 

If  inArray (Arrindex)  =  inKey  Then 
LinearSearch  =  Arrindex 
Exit  Function 
End  If 

Next  Arrindex 
LinearSearch  =  -1 
End  Function 

'  Convert  time  in  specified  units  to  minutes 

Public  Function  Units2Mins (value  As  Single,  unit  As  String) 

As  Single 

If  InStr(unit,  "mins")  Then 
Units2Mins  =  value 
Elself  InStr(unit,  "hours")  Then 
Units2Mins  =  value  *  60# 

Elself  InStr(unit,  "days")  Then 

Units2Mins  =  value  *  VisSO .ActivePage . PageSheet . Cells 
( "User . ViteScenWorkDay" ) .Result (visNumber) 
Elself  InStr(unit,  "weeks")  Then 

Units2Mins  =  value  *  VisSO .ActivePage . PageSheet . Cells 
( "User . ViteScenWorkWeek" ) .Result (visNumber) 

Else 

Unit2Mins  =  -1 
End  If 

End  Function 

'  Initialize  combo  box  with  ratings 
'  From  ViteProject  template 

Public  Sub  RatingComboBox (ctl  As  ComboBox) 
ctl . Clear 

ctl.AddItem  ("High") 
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ctl . Additem  ("Medium") 
ctl.AddItem  ("Low") 

End  Sub 

'  Assign  integer  value  to  user-defined  cell 

'  This  will  be  used  if  later  users  desire  to  see  the  changes 
'  made  reflected  in  Visio 
'  LT  Alexander  Added 

Public  Sub  SetCellInt (shape  As  Visio. shape,  name  As  String, 

value  As  Long) 

If  Not  shape . CellExists ( "User . "  &  name,  0)  Then 
shape .AddNamedRow  visSectionUser ,  name,  0 
End  If 

shape . Cells ( "User . "  &  name) . Formula  =  value 
End  Sub 

'  Return  value  of  specified  user-defined  cell  as  string 
'  This  will  be  used  if  later  users  desire  to  see  the  changes 
'  made  reflected  in  Visio 
'  From  ViteProject  template 

Public  Function  CellStr ( shape  As  Visio. shape,  name  As  String, 

default  As  String)  As  String 
If  shape . CellExists ( "User . "  &  name,  0)  Then 

CellStr  =  shape . Cells ( "User . "  &  name) . ResultStr ( " " ) 

Else 

CellStr  =  default 
End  If 

End  Function 

'Set  specified  user-defined  cell  to  string 

'  This  will  be  used  if  later  users  desire  to  see  the  changes 
'  made  reflected  in  Visio 
' LT  Alexander  Added 

Public  Sub  SetCellStr ( shape  As  Visio. shape,  name  As  String, 

ByVal  value  As  String) 
skills$  =  "ViteSkills" 
craft$  =  "Generic.." 

If  Not  shape . CellExists ( "User . "  &  name,  0)  Then 
shape .AddNamedRow  visSectionUser,  name,  0 
End  If 

If  name  =  skills  Then 

value  =  craft  +  value 
End  If 

shape . Cells ( "User . "  &  name) . Formula  =  Chr$(34)  &  value 

&  Chr$  (34) 

End  Sub 

'  Number  of  trials  to  run  in  a  given  simulation  with  rudimentary 
'  error  check 

Private  Sub  TrialsCtl  LostFocusO 

If  Not  IsNumeric (TrialsCtl)  Then 
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MsgBox  "Enter  a  Number  greater  than  0  ",  vbExclamation 
TrialsCtl  =  5 
TrialsCtl . SetFocus 
Elself  TrialsCtl  <=  0  Then 

MsgBox  "Enter  a  number  greater  than  0  ",  vbExclamation 
TrialsCtl  =  5 
TrialsCtl . SetFocus 
End  If 

End  Sub 

'  For  MANUAL  SIMULATION  when  the  comboboxes  have  been  set 
'  this  button  is  pressed  to  update  the  pre-run  database,  but  only 
'  update  if  there  has  been  an  actual  change 

'  For  AUTO  SIMULATION  this  button  is  used  to  enter  the  low  end 
'  and  high  end  scenarios  that  bracket  the  simulations 


Private  Sub  updateDB  Click () 

If  Not  boolAutoSim  Then 
'  Update  DB  if  Manual  Sim 

Static  szReqCtl$,  szCompCtl$,  szEffCtl$ 

'If  Requirements  Volatility  selection  has  changed 
If  Not  szReqCtl  =  ReqCtl  Then 
szReqCtl  =  ReqCtl 
Call  ReqCtl  XChange 
End  If 

'  If  Complexity  selection  has  changed 
If  Not  szCompCtl  =  CompCtl  Then 
szCompCtl  =  CompCtl 
Call  CompCtl  XChange 
End  If 

'  If  Efficiency  selection  has  changed 
If  Not  szEffCtl  =  EffCtl  Then 
szEffCtl  =  EffCtl 
Call  EffCtl  XChange 
End  If 

If  CompCtl  =  CompCtl . List ( 0 )  Then  ' MultCtl . DataChanged 

'Update  the  Work  parameter  of  Activity 
CompMult  =  MultCtl 


Else 

'  Ensure  that  the  database  multiple  is  1 
CompMult  =  1 
End  If 

work  =  Units2Mins (CompMult,  "days") 

WorkPropChange  "ViteActivities" ,  "WorkVolume" ,  work 
updateDB .Visible  =  False 
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RunSimulation . Enabled  =  True 
Elself  boolBeginEntry  Then 

'  If  Auto  sim  chosen  and  the  lower  bound  has  not  been 
'  entered,  then  enter  the  lower  bound  data 

RunSimulation . Enabled  =  False 
ManSim. Enabled  =  False 
g  ReqLB  =  ReqCtl . Listindex 
g  EffLB  =  EffCtl . Listindex 
g  CompLB  =  CompCtl . Listindex 

'  If  the  complexity  is  High  then  allow  for  a  multipe 
If  CompCtl  =  CompCtl . List ( 0 )  Then 

'  Its  High,  therefore  set  the  lowerbound  Multiple 
g_MultLB  =  MultCtl 

Else 

g_MultLB  =  1 
End  If 

boolBeginEntry  =  False 

'  change  the  caption  of  the  control  for  the  next  part 

updateDB . FontBold  =  False 

updateDB . Caption  =  "Enter  Upper  Bound" 

IblMultMax .Visible  =  True 
MultCtl .Visible  =  True 
MultCtl . Enabled  =  True 
IblSteps .Visible  =  True 
stepsCtl .Visible  =  True 
IblMult .Visible  =  False 


Else 

'  Auto  sim  has  been  chosen  and  lower  bound  data  has 
'  been  entered.  Enter  upper  bound  data. 


g  ReqUB  =  ReqCtl . Listindex 
g  EffUB  =  EffCtl . Listindex 
g  CompUB  =  CompCtl . Listindex 
RunSimulation . Enabled  =  True 
updateDB .Visible  =  False 
ReqCtl . Enabled  =  False 
EffCtl . Enabled  =  False 
CompCtl . Enabled  =  False 
stepsCtl . Enabled  =  False 
MultCtl . Enabled  =  False 
If  Not  g  MultLB  <=  MultCtl  Then 

szMsg$  =  "The  higher  bound  Multiple  is  less  than  the" 
szMsg  =  szMsg  +  vbCrLf 

szMsg  =  szMsg  +  "  lower  bound,  they  will  be  switched" 
MsgBox  szMsg,  vbinf ormation  +  vbOKOnly,  "Invalid  Order" 
CompMult  =  g  MultLB 
g_MultLB  =  MultCtl 
MultCtl  =  CompMult 
End  If 
End  If 


End  Sub 
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'Used  to  ensure  that  the  number  of  runs  in  the  Vite  program  is 
'maintained  at  1  so  that  this  program  can  make  all  the  runs 

Public  Sub  setInitScenarioTrials  ( ) 

'Variable  declarations  and  initializations 

sz  TeamTable$  =  "ViteScenarios" 
sz  FieldExper$  =  "Trials" 

Set  dbsMyDB  =  DBEngine . OpenDatabase (g  szDefFileName,  False) 
Set  rstMyRecordSet  =  dbsMyDB. OpenRecordset (sz  TeamTable) 

Set  rstRecordSets  =  dbsMyDB . Recordsets 

'Change  team  Experience 

rstMyRecordSet . Edit 
rstMyRecordSet (sz  FieldExper)  =  1 
rstMyRecordSet . Update 
rstMyRecordSet . Close 
dbsMyDB . Close 

End  Sub 


3.  Information  Mapping  Display 

Const  TRANS PARENT_BACK  =  0 
Const  TRANSPARENT_FILL  =  1 
Const  BACK_COLOR  =  1 
Const  FILL_COLOR  =  0 

'  Close  this  form  and  return  to  the  calling  form 

Private  Sub  Commandl  Click () 
tempi . Hide 
Forml . Show 

shpEff (12) .FillStyle  =  TRANSPARENT_FILL 

shpTeam(5) .BackStyle  =  TRANS PARENT_BACK 
shpApp (2) .BackStyle  =  TRANS PARENT_BACK 
shpSkills (1) .BackStyle  =  TRANS PARENT_BACK 

shpComp (20) .FillStyle  =  TRANSPARENT_FILL 

shpSolComp (3) .BackStyle  =  TRANS PARENT_BACK 
shpFTE (0) .BackStyle  =  TRANS PARENT_BACK 

shpReqV(19) .FillStyle  =  TRANSPARENT_FILL 
shpUnc (8) .BackStyle  =  TRANS PARENT_BACK 
shpReqComp (7) .BackStyle  =  TRANS PARENT_BACK 


End  Sub 

'  When  the  Requirements  Volatility  link  is  selected 
'  illustrate  the  vite  parameters  that  will  be  affected 
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Public  Sub  showReqVolO 

shpReqV(19) .FillStyle  =  FILL_COLOR 
shpUnc (8) .BackStyle  =  BACK_COLOR 
shpReqComp ( 7 ) .BackStyle  =  BACK  COLOR 


End  Sub 

'  When  the  Efficiency  link  is  selected 

'  illustrate  the  vite  parameters  that  will  be  affected 

Public  Sub  showEf f iciency ( ) 

shpEff (12) .FillStyle  =  FILL_COLOR 

shpTeam(5) .BackStyle  =  BACK_COLOR 
shpApp (2) .BackStyle  =  BACK_COLOR 
shpSkills (1) .BackStyle  =  BACK_COLOR 

End  Sub 

'  When  the  Complexity  link  is  selected 
'  illustrate  the  vite  parameter  that  will  be  affected 

Public  Sub  ShowComplexity ( ) 

shpComp (20) .FillStyle  =  FILL_COLOR 

shpSolComp (3) .BackStyle  =  BACK_COLOR 

End  Sub 

'  When  the  "high"  complexity  Multiple  link  Is  selected 
'  illustrate  the  vite  parameter  that  will  be  affected 

Public  Sub  showMultO 

shpFTE (0) .BackStyle  =  BACK_COLOR 
End  Sub 

'  Unload  the  form 

Private  Sub  Form  Terminate () 

Call  Commandl  Click 
Unload  Me 
End  Sub 


B.  DOCUMENTATION 


There  are  some  prerequisites  that  must  be  set  prior  to 
using  this  research  for  analysis.  Visio  5.0  or  better, 
ViteProject  2.0,  and  Excel  must  be  loaded  onto  the  computer 
designated  to  run  the  simulation.  Preferably  a  new 
ViteProject  project  with  only  one  scenario  should  be  used  to 
run  the  analysis.  If  an  older  project  is  to  be  used,  only 


43 


Scenario  1  will  be  manipulated  and  simulated  via  this 
program.  It  is  imperative  to  ensure  Scenario  1  has  the 
correct  organization  structure  and  parameter  settings  (not 
affected  by  this  program)  for  the  analysis. 

Ensure  also  that  if  a  large  sample  size  is  to  be  used 
that  there  is  enough  storage  space  for  the  generated  Excel 
files.  All  Excel  file  size  limitations  still  apply.  Eor 
comparison,  the  Excel  file  generated  for  an  execution  from 
LLL  to  HHH25  (1000  trials  each)  is  in  excess  of  12Mb.  It  is 
also  recommended  that  when  simulating  large  samples  the 
designated  computer  be  used  exclusively  for  the  simulation 
and  subsequent  storage. 

As  previously  discussed,  the  first  display.  Figure  4.1, 
is  designed  to  set  up  the  program.  The  analyst,  through 
this  display,  locates  the  Visio  file  containing  the 
organization's  structure,  the  corresponding  ViteProject 
database  file,  and  where  to  output  the  analysis  data's  Excel 
f  lie . 
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^  Software  Risk  Assessment 


T 0  begin  the  program  some  tasks  must  be  completed: 

(1 )  Input  the  location  of  the  Visio  file  that  will  be  used  for  the  organization's 
structure. 

(2)  Indicate  the  location  of  the  Vite  Database  to  be  used  for  the  simulation. 

(3)  Select  directory  to  save  output  files 

Depressing  Cancel  during  this  portion,  or  inputting  invalid 
data  will  cause  the  program  to  exit. 


x| 


Press  CONTINUE  to  select  the  Visio  tile  that  contains  the 
Organizations  format  or  press  CANCEL  to  exit  program 


CONTINUE 


CANCEL 


Press  CONTI  N  U  E  to  select  the  Vite  file  that  contains  the 
Database,  or  press  CANCEL  to  exit  program 


CONTINUE 


CANCEL 


Press  CONTINUE  to  use  selected  output  file  Directory,  or 
_ CANCEL  to  exit  program 


'^Administrator 

Documents 


'  ThesisWork 


~11 

r] 


CONTINUE 


CANCEL 


Figure  4 . 1  Introductory  Display 


The  main  form.  Figure  4.2  has  various  user  (analyst) 
interfaces  that  allow  the  analyst  to  set  the  previously 
discussed  ViteProject  parameters  for  simulation.  The 
illustration  is  labeled  with  five  areas  for  ease  of 
discussion.  The  large  underlined  numbers  do  no  appear  on 
the  actual  main  display  of  the  program. 
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Thesis  User  Form 


IN  umber  of 
_  Trials  to  Run 


Run  emulation 


j  Change  SeTected 
iQ.MfPMLS.f.atisfics,.. 


2a 


EXIT 


2  Auto  Simulate 
C  Manually  Simulate 


Complexity 


I  Low 


Excel  File  Name;  oulput_03-Dec-01_05949.XLS  ^ 


Efficiency  ^ 

Requirements  4  i - 1 

Volatility  “  |Low  _3J 


Figure  4 . 2  Main  Display 


In  Area  1,  the  user  indicates  the  number  of  simulation 
trials  for  a  chosen  set  of  parameters.  It  is  incumbent  upon 
the  analyst  to  remain  cognizant  of  computer  storage 
limitations.  Only  integer  values  are  accepted. 

Area  2  allows  the  user  to  determine  whether  to 
manually  simulate  individually  defined  scenarios,  or  to 
simulate  scenarios  between  a  designated  lower  and  upper 
bound.  When  a  manual  simulation  is  executed,  the  analyst 
loses  the  option  of  automatic  simulation  for  the  current 
instance  of  the  program.  When  an  automatic  simulation  is 
initiated,  the  program  terminates  upon  completion  of  the 
simulation.  Area  2a  is  a  control  that  either  updates  the 
database  prior  to  a  scenario  simulation  or  is  used  to  set 
the  lower  and  upper  bounds  for  an  auto  simulation. 
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The  controls  in  Area  3  are  the  RUN  SIMULATION  and 
CHANGE  SELECTED  OUTPUT  STATISTICS  control.  The  analyst 
will  not  be  allowed  to  run  a  simulation  until  the  pre-run 
database  is  updated  for  a  manual  simulation  or  the  lower 
and  upper  bound  are  set  for  the  automatic  simulation.  The 
analyst  may  choose  to  change  the  statistical  information 
collected  in  the  output  Excel  file.  Three  default 

statistics  are  initially  selected:  CPM  Duration,  Duration, 
and  Work  Cost.  See  Figure  4.3. 


Output  Statistics 

I”  Work  Volume 

|7  Work  Cost 

[7  CPM  Duration 

I”  Rework  Volume 

|~  Rework  Cost 

W  Duration 

r”  Coordination  Volume 

|~  Coordination  Cost 

I~  Work  Week 

|~  Wait  Volume 

|~  Wait  Cost 

|~  Work  Day 

Figure  4.3  Output  Statistics 


The  ViteProject  parameters  are  adjusted  in  Area  4. 
The  three  areas,  as  previously  discussed,  are  Efficiency, 
Requirements  Volatility,  and  Complexity.  The  labels  for 
the  combo  boxes  are  hyperlinks  to  the  third  display.  The 
analyst  can  manipulate  the  three  parameters  from  low, 
medium,  and  high.  When  an  Automatic  simulation  is 

selected,  other  selection  controls  are  enabled  below  the 
Complexity  control;  this  allows  the  analyst  to  pick  the 
"high"  complexity  multiple.  This  multiple  can  influence 
either  bound  that  stipulates  a  "high"  complexity.  Entering 
a  value  for  the  multiple  when  a  "high"  complexity  is  not 
selected  has  no  effect. 
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Software  Template 


Figure  4 . 4  Informational  Display 

The  name  of  the  output  Excel  file  is  displayed  in  Area 
5,  minus  the  path.  The  output  file  is  named  for  the  day 
and  time  of  its  creation,  thus  making  each  new  file  name 
unique  and  distinguishable. 


Figure  4.4  is  the  third  display  in  the  research 
program  and  is  titled  Informational  Display.  As  shown,  the 
display  shows  the  mapping  of  the  research  parameter 
EFFICENCY  to  its  actual  ViteProject  parameters.  This 
display  is  solely  used  to  illustrate  the  mapping  from  the 
research  parameters  to  the  actual  ViteProject  parameters. 
The  only  access  to  this  display  is  via  hyperlinks  in  the 
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main  display;  see  Area  4  of  Figure  4.2.  The  graphics  of 
the  informational  display,  other  than  the  CLOSE  control, 
are  non-interactive. 


C.  EXTENSION  VALIDATION 

To  validate  the  thesis,  100  trials  were  simulated  for 
16  scenarios.  The  scenarios  were  chosen  to  somewhat  mirror 
the  scenarios  of  (Nogueira,  2000)  .  Given  that  the 
ViteProject  model  is  a  stochastic  process  whereby  each 
particular  simulation  has  some  randomness  involved,  the 
values  per  simulation  will  vary  by  a  small  amount.  Table 
2.1  lists  the  16  scenarios  and  the  corresponding  output 
values  using  the  extension  produced  by  this  thesis.  Figure 
2.1  displays  the  output  from  ViteProject.  Three  individual 
simulation  batches  using  each  method  were  implemented.  The 
following  displays  are  each  a  representative  average. 


CPM  Duration 

Duration 

Simulation 

Cost 

LLL 

67 

85 

14400 

LLH 

67 

111 

14400 

LLH3 

202 

218 

43200 

LLH5 

336 

356 

72000 

LHL 

67 

89 

14400 

LHH 

67 

113 

14400 

LHH3 

202 

222 

43200 

LHH5 

336 

358 

72000 

HLL 

17 

34 

3600 

HLH 

17 

40 

3600 

HLH  3 

50 

63 

10800 

HLH  5 

84 

89 

18000 

HHL 

17 

42 

3600 

HHH 

17 

48 

3600 

HHH3 

50 

68 

10800 

HHH5 

84 

93 

18000 

Table  4.1  Research  16  scenario  output 
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As  previously  mentioned,  some  ViteProject  parameters 
were  set  to  mirror  the  work  done  in  (Nogueira,  2000)  to 
ensure  research  integrity  for  particular  scenarios. 
Particularly,  scenario  properties  that  were  customized  for 
the  validation  were:  Work  Day  (hrs)  -  6,  Centralization  - 

"Low",  Formalization  -  "Low",  Matrix  Strength  -  "High", 
Functional  Error  Rate  -  0.01,  and  Information  Exchange  - 

0.8.  Additionally,  each  Dependency  is  initialized  with 
strength  of  10.  The  significance  of  the  aforementioned 
scenario  properties  is  negligible  for  this  thesis.  For  a 
more  detailed  understanding  of  these  parameters  and  how 
they  pertain  to  modeling  and  simulating  the  software 
process  refer  to  (Nogueira,  2000).  Of  note,  the  scenario 
property  Project  Error  Rate  was  set  at  0.1  for  the  thesis 
validation  simulations  whereas  in  (Nogueira,  2000)  it  is 
set  to  0.01.1 


1  This  change  was  made  after  consultation  with  Major  Michael  Murrah, 
who's  Dissertation  shall  use  this  research  to  further  the  work  of  Dr. 
Nogueira  de  Leon 
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^ViteProject  -  C:\Program  Files\Vite\ViteProject\l 


File  Scenario  |  Analysis  Help 


Scenario 

CPM  Duration 

Sim.  Duration 

CPM  Cost 

Sim.  Cost  Descriptio 

▲ 

1 

67  days 

85  days 

14.4K 

35. 2K  (LLL) 

2 

67  days 

1 1 0  days 

14.4K 

46. 2K  (LLH) 

3 

201  days 

220  days 

43. 2K 

73. 9K  (LLH  3) 

4 

336  days 

355  days 

72.  OK 

102.6K  (LLH  5) 

5 

67  days 

88  days 

14.4K 

36. 5K  (LHL) 

6 

67  days 

1 1 2  days 

14.4K 

47. 3K  (LHH) 

7 

201  days 

220  days 

43. 2K 

74.1  K  (LHH 3) 

8 

336  days 

358  days 

72.  OK 

104.3K  (LHH 5) 

9 

1 6  days 

34  days 

3.6K 

15.2K  (HLL) 

10 

1 6  days 

40  days 

3.6K 

18.0K  (HLH) 

11 

50  days 

62  days 

10. 8K 

26.1  K  (HLH 3) 

12 

84  days 

89  days 

18.  OK 

34. 4K  (HLH 5) 

13 

1 6  days 

41  days 

3.6K 

18.6K  (HHL) 

14 

1 6  days 

48  days 

3.6K 

22.2K  (HHH) 

15 

50  days 

69  days 

10. 8K 

29. 9K  (HHH 3) 

16 

84  days 

93  days 

18.  OK 

38. 3K  (HHH 5) 

Ld 

Figure  4.5  ViteProject  16  Scenario  output 


D .  ADDITIONAL  REQUIREMENTS 

Due  to  time  constraints  and  a  high  requirements 
volatility,  some  aspects  of  the  research  lend  themselves  to 
improvement.  There  are  also  some  legacy  system 
improvements  that  might  prove  useful  as  the  research 
progresses.  The  most  needed  improvement,  for  future 
research,  is  better  access  to  the  ViteProject  database 
file.  In  the  current  version  of  the  research  program,  the 
ViteProject  database  is  accessed  via  data  access  objects 
(DAO)  .  The  DAO  method  recordset . seek  will  search  the 
recordset  (table)  for  a  value  based  on  a  key.  This  method 
of  search  is  theoretically  faster  than  searching  the  entire 
table,  however  repeated  attempts  at  its  implementation  have 
failed.  Understanding  and  successfully  implementing  the 
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seek  method  will  speed  up  database  searches  and  reduce  some 
of  the  program's  overhead. 


Another  overhead  reduction  can  occur  if  the  graphic 
generated  by  ViteProject,  for  each  simulation  run,  could  be 
suppressed  or  inactivated.  Also,  an  initial  data  file 
where  the  working  files  and  directories  can  be  hard  coded 
could  allow  for  suppression  of  the  introductory  display. 


This  research  program  makes  updates  to  the  database  on 
all  similar  objects.  For  instance,  each  task  in  the 
software  development  lifecycle  is  represented  as  an 
Activity  shape.  Changes  in  the  parameters  of  any  Activity 
will  make  the  same  change  to  all  activities  on  the  Visio 
drawing.  Workers  are  represented  as  Actor  shapes,  and 
changes  to  any  one  Actor,  as  with  the  Activity ,  will  occur 
for  all  actors  implemented  via  this  research. 


Follow-on  upgrades  to  this  research  should  look  at 
providing  the  ability  to  group  many  Activities  or  many 
Actors  such  that  changes  can  be  made  for  groups  of  shapes 
without  necessitating  an  all-encompassing  parameter  change. 
This  will  allow  the  analyst  to  better  refine  assumptions 
throughout  the  organizational  structure. 


52 


V.  CONCLUSION 


This  thesis  developed  an  extension  to  ViteProject,  a 
proprietary  software  product,  to  expand  its  functionality. 
The  expanded  functionality  enables  use  of  ViteProject  for 
sensitivity  analysis  and  allows  validation  of  the  VDT-2 
model,  the  core  model  of  ViteProject.  Research  analysts 
can  now  implement  this  thesis  when  estimating  software 
engineering  timelines. 


The  automation  of  parameter  manipulation  and  multiple 
scenario  simulations  has  been  tailored  to  the  work  done  by 
Dr.  Nogueira.  However,  this  thesis  is  easily  adaptable  to 
additional  organizational  structures. 


Future  work  on  the  software  risk  assessment  model  that 
uses  this  research  might  find  that  the  extensions  created 
for  ViteProject  are  not  sufficient.  Then  it  will  be  time 
for  the  product  of  this  thesis  to  be  extended.  To  aid  in 
the  development  of  additional  extensions,  the  code  and  the 
interfaces  are  outlined  within  this  thesis. 
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